{*
  Object Pascal simple variant manipulation routines
  @Author  Maciej Zagozda (1998-2008)
  @Licence Microsoft Reciprocal License (Ms-RL)
  @Website http://www.codeplex.com/intelitechdelphirtns/
  @Version 2008/04/20 Added documentation support
}
unit VariantRoutines;

interface

uses
  Controls,
  Classes,
  Dialogs,
  ExtCtrls,
  Forms,
  Messages,
  SysUtils,
  Windows;

function VariantToString( vrntVariant: Variant ): AnsiString; 

implementation

function VariantToString( vrntVariant: Variant ): AnsiString; 
begin
  if vrntVariant = Null then
  begin
    Result := '';
  end
  else
  begin
    Result := vrntVariant;
  end;//if
end;
end.
